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CLUB NOTES — FOR PRIVATE SALE - VZ USER GROUPS & PUBLICATIONS :- Page 3 


EDUCATIONAL - SPELLING TRAINER by Paul and Joe LEON Page 4 

The program is just a simple one. Words are held in DATA statements at end 
of listing. Any family member can read out words for student to spell. When 
changing words make sure you have 20, otherwise you'll have to reDIMension. 


IMPROVING VZ SOUND by Joe LEON :- Page 5 
Fed up with the tinny sound from your VZ, then change it for one with 
improved sound and volume. Even a beginner should be able to do this project. 


ENHANCING FIND by Larry TAYLOR :- Pages 6-7 

This 1s the basic version of FIND routine which is a very useful utility to 
have around. It can be even better if it’s available on power up. With Larrys 
help it now lives in my 2K ZERO POWER RAM at SQ@@@H-67FFH, Thanks Larry. 


BASIC BLOCK TRANSFER by Chris HOBROUGH :- Pages-9 

Last issue featured M/C version while this one iS in basic. A simple 
demonstration program is included to show what could be achieved. I'm sure 
you'll be able to adapt it to your own needs. 


DISKLIST UPDATE by Joe LEON :- Pages 10-11 
As I keep club's membership list-on DISKLIST I keep trying to improve it’s 
operation. The two main improvements are to SAVE/LOAD toutines. You can now 


update axisting file without using the ERAse function first. Also file MERGING 
has been incorporated as well. 


8k BIB RAM PART III by Joe LEON :- Pages 12-13 

A pointer change routine has been added to M/WORDS program so words like 
TRON, TROFF, etc can be activated. Ideas on how to put routines in 2K BIB FAM 
are presented as well. Don't forget, the main purpose of the BIB RAMS is for 
software developement. My thanks to Dave Mitchell and Robert Quinn and Larry 
Taylor for their help with above. 


LPRINTER by Robert QUINN :- Pages 14-16 
Turn your PRINTER/PLOTTER into a typewriter printing UPPER/lower case, 
INVERSE, GRAPHICS and screen dumps as well. 


MEMBRANE KEYBOARD UPDATE by Joe LEON :- Page 16 

[tf some of your keys don’t work too well then don‘t rush out and buy a 
M/Keyboard before trying out Dick Smith’s magic spray which just might do the 
trick and 1S much cheaper. 


BLOCK MOVE & COMPARE by Dave BOYCE :- Pages 17-18 
Although the second block move routine presented, it’s use would be better 


Suited to programs like M/WORDS, EPROM PROGRAMMERS, etc. Chose one or both 
according to your applications. 


ALF ~- DRAWN by Matthew TAYLOR :~ Page i8 

Matthew, our resident GRAPHICS expert shows of his skills. He also designed 
an exellent Graphics Editor which is simple to use and full of features. Both 
fape and disk users are catered for. 


FOR SALE —- YZ SCREEN ED - W.P. PATCHS. 1 ~ EXT. DOS V1.0 Pages 19-20 


BELIEVE {T OR NOT :- 

A person new to computers received a VZ700 for Christmas. The persons 
delight furned to dismay upon spotting the MADE IN HONG KONG lapel on the 
bottom. The person took it back to exchange for one made locally, the reason, 
person couldn't read chinese. 


PS i- Names and places nave been changed to protect the innocent. 


FOR SALE —- CLUB NOTES “ % * : = 


I hope all our readers had a happy and safe festive season and a good start 
to 1988 and here's hoping it will stay that way. 
FOR PRIVATE SALE 1 :- 
1 OFF VZ 300 - 1 OFF VZ 2@@ DATASSETTE - 1 OFF VZ 200 JOYSTICKS. 
Includes leads and powerpacks. All used and in good order. 
Price as UNIT -— $120.00 -— Includes POSTAGE. 


Contact Brian GREEVE 37 NORWOOD ROAD RIVERVALE 61@3 
PERTH WESTERN AUSTRALIA. 


FOR PRIVATE SALE 2 :- 
1 OFF LIGHT (GRAPHICS) PEN ~ As new and still in original packing. #52.00 


Includes POSTAGE - Ring Dave BOYCE on (@8) 384 6574. 


CLUB DEMONSTRATION :- 

At the March club meeting Joe LEON will demonstrate the end result of his 
BIB RAMS articles by transfering information to EPROM and installing in his VZ 
288 for a working demonstration. 


V2 USER GROUPS AND PUBLICATIONS 


VZ USER MARK HARWOOD P.O.BOX 154 DURAL N.S.W. 2158 


LE'VZ QOP J.C.E. D’ALTON 39 AGNES St. TOOWONG GLND. 4046 
VSOFTWAREZ - SOFTWARE/HARDWARE FOR SALE 


VZ DOWN UNDER SCOTT LE BRUN S9 BRENTWOOD DVE WANTIRNA 3152 
SOFTWARE /HARDWARE FOR SALE 


VZ—-LINK - PETER J. HILL P.O.BOX 1972 C.P.0. AUCKLAND N.Z. 
WAVZ - GRAEME BYWATER P.O. BOX 386, MORLEY W.A. 6962 
BRISBANE VZ USERS WORKSHOP - C/O 63 TINGALPA ST. WYNUM WEST 4178 


HUNTER VALLEY VZ USERS’ GROUP - P.O. BOX 161 JESMOND N.S.W. 2299 
EDITOR-JOE LEON (@49)51 2754 - SECRETARY-ROSS WOODS (@49)71 2842 


SUBSCRIPTION - H.V.VZ.JQURNAL - 6& MONTHS $9.0@ -— 12 MONTHS $19.20 
New Zealand -~- 6 MONTHS $12.00 - 12 MONTHS $24.20 


NEW VENUE - NEW DATES - NEW VENUE - NEW DATES - NEW VENUE 


MEETINGS ~ FIRST FRIDAY of MONTH at JESMOND NEIGHBOURHOOD CENTRE 
MORDUE PARADE - REAR STOCKLAND MALL (BIG W) JESMOND 


NOTE :- When writing to any above or H.V.VZ. Users’ Group for information please 
enclose a 5.5.A.E. or 2 Int. Reply Coupons. 


No MATERIAL in this Journal may be reproduced in part or whole without the 
consent of the Author who retains COPYRIGHT. 


SPELLING AID BY F- & JS. LEON 


10 
1S 
29 
25 
39 
35 
49 
45 
20 
55 
6@ 
65 
79 
to 
80 
85 
3Q 
95 
10 
105 
119 
149 
15@ 
i55 
169 
i65 
17 
175 
190 
290 
2190 
220 
290 
300 
319 
320 
330 
3490 
390 
4900 
419 
429 
4990 
5900 
510 
9529 
530 
549 
530 
600 
619 
629 
630 
700 
710 
720 
730 
790 
800 
819 
820 
8390 


KKK KKK KKK KKK KK KK KKK IKK KKK AK KKH HK AK HK KAKA HK KAA HK KAA KKK 
”* TRAINING PROGRAM FOR LEARNING TO SPELL NEW WORDS x 
*% DESIGNED FOR PARENT PARTICIPATION -- BY P AND J LEON * 
ROKK KOK IOK RIE ACI ORE KK ARK RK EK KKK KR EK KKK 


KKK KKK KKK KKK KKK KKK KK KKK KK KKK KH AHK HAHAHA AKA HAHAHA HK KAA HK KK KH KE 
’*’ THIS PROGRAM IS FAIRLY EASY TO USE AS IT’S MENU DRIVEN * 
>* AFTER RUNNING PROGRAM SELECT NUMBER OF WORDS TO SPELL. * 
** NEXT EITHER A PARENT, BROTHER, SISTER CAN READ OUT THE * 
’'*’ WORDS THE STUDENT WISHES TO LEARN HOW TO SPELL. THE VZ * 
‘* CHECKS THE SPELLING AUTOMATICALLY INFORMING STUDENT x 
>’ WHETHER HE/SHE IS RIGHT/WRONG AND PERCENTAGE CORRECT. * 
TOOK OKOKER IC ICI KE AIK KK ARE EE KK KE KKK 


KOK KOK AK OOK KKK KKK HK KH THK HK HK HH HAHAHAHA AA KK HK KAKA 
** LINES 800 TO 830 CONTAIN THE 20 WORDS STUDENT WANTS TO * 
’* LEARN. JUST REPLACE WITH 20 NEW WORDS OF YOUR CHOICE. * 
OHO KIKI KK KKK KKK KKK KKH KAKA AK KKK KKK KKK KKK KKK 


POKE30744, 96:COLOR,@:DIM E%(20) :GOSUB150:GOSUB7900 
FORI=1T020: READE$(1I):NEXT I:GOTOZOO 


CLS:COLOR7: PRINT TAB(6) " Minima ies ace i” 
PRINT" a eee errs" 


PRINT" 4S ipeatignn i > Biielits # >": PRINT 

PRINT“ PERCENTAGE CORRECT ->* 

PRINT” 3==2rss==S2522=ss==SS=S2>=sS=S==" 

PRINT@77, "O":PRINT@93, "9": PRINT@154, "0.90": RETURN 
PRINT@226,"QUESTION # WAS": PRINT@418, “QUESTION #° 
FORI=1TONW: PRINT@429, USING" ##"; 1 :GOSUBG0O 


PRINT@482, "8 Mindz eee A” ; 


AS="":PRINT@322, ;: INPUT “§ Mima EAS: TFAS=" "THEN 300 
IFAS="Q*THENCLS: END 

C=0: FORJ=1T020: IFES( J) =ASTHENC= 1: NEXTJELSENEXTJ 

IFC= 1THENGOSUBSOQ@ELSEGOSUBS 19 

NEXT I : GOSUB600 


PRINT@443, " "3 
PRINT@418,;: INPUT "§ MSS =Re ee TS 
iF Ts="Y “THENRUNELSEIFTS="Q"THENCLS : ENDELSE400 


PRINT@247, “¥ cpdeisad g’ : SOUNDS1, 1: R—R+1:GOTOS529 
PRINT@247, "8 (Bizieiie §° > SOUND15, 4: W=W+1 
PRINT@76, USING “##";R:PRINT@9S2Z, USING "##" 5W 
PRINT@152, USING "###. ##°3R/1X1900 
PRINT@237,USING" ##"3;1: RETURN 


FOR J=288TO388STEP32 
PRINT@J, " ";:REM 32 SPACES 
NEXT: RETURN 


GOSUBGOO: PRINT@289, "3 MMRMIGI=])=1 ais) Sano el ee ee es 


PRINT@38@, "5" 
PRINT@35i,;: INPUT" SELECT NUMBER OF WORDS ";NW 


IFNW <5 ORNW >20 THEN7OOELSERETURN 


DATA ACCOMPLISHED, BEHAVIOUR, COMMONWEALTH, DAYLIGHT, ELEPHANT 
DATA FINANCIAL, GENERATION, HEADPHONES, IMITATE, JUSTIFIED 
DATA KNIFE, LENGTH, MASTERPIECE, NUISANCE, OCCUPATION 

DATA PHARAOH, QUIET, RECEIPT, SARCASM, WHISTLE 


IMPROVING V2 SOUND BY JOE L:EPON = 


IMPROVING VZ 200/300 SOUND QUALITY :- 


The reason for the tinny sound in the VZ is the PIEZO 
TRANSDUCER. It’s located on the bottom of the case under the 
P.C.B., and because it’s glued down it further reduces the sound 
output. This modification can be done by the beginner. 


Before starting the mod you’1ll have to purchase one of the 
two sound transducers or 2"" speaker described below and or a 
miniature pot. 


1) S. lem (2") 8 Ohm speaker. TANDY Cat. No. 49-245 - $3.99 

>) PIEZO TRANSDUCER 1.- 3@mm X Samm —- Available from D.Smith. 
3) PIEZO TRANSDUCER 2 - 30mm X 10mm - TANDY No. 273-073 - 32.99 
4) MINIATURE ROTARY POT (5K) - Available from D.SMITH — $1.29 


1 tried all three and found the 30mm X 10mm P/TRANSDUCER the 


most satisfactory as far as sound output, size and price. Sound 
output between the S.icm speaker and 30mm X 10mm P/TRANSDUCER was 
nearly identical. So size and price took priority. 


The P/TRANSDUCER element used in the VZ is the same as the 
two described previously. The one in the VZ is uncased, while 
the other two are cased. the larger the case the more sound 
output. And now to the mod. 


Turn your VZ upside down and remove all the screws hoiding 
the two halves of the case together and turn VZ right way up and 
back to front. Lift top of case and put towards the back. 


The screws holding the P.C.B. in place will have to be 
removed next. Lift the P.C.B. out carefully and you should see 
the P/TRANSDUCER element giued to bottom of case. Unsoider or 
cut from the element the two leads going to it. 


If you desire a volume control, now is the time to insert it 
in one of the leads as shown in circuit diagraa. It can be 
mounted on bottom left lip of the case. Drill a hole to suit the 
shaft and aount it upside down with the knob going under the lip. 

The volume control is linear in operation and at mimimum is like 
the volume from original VZ while at Maximum is fair bit louder. 


Next solider the leads from your new TRANSDUCER to the ends of 
the unsoldered leads. If you have’nt a soldering iron then 
simply twist the wires together. Make sure you insulate the 
joined wires from each other and the VZ by using sleeving or 
wrapping some electrical tape around the joints. 


The best place to put the P/TRANSDUCER is at front left of 
case with the leads going under the P.C.B. Use a bit of tape on 
one side of P/TRANSDUCER to keep it in place. All that’s left 
now is to reasemble. I think you’ll agree, it was’nt hard. 


PIEZO TRANSDUCER 


5K —-1t0OK 





273-073 * 


TANDY CAT. NO. % CONNECT TO VZ 200/300 TRANSDUCER ‘EADS 


ENHANCING FIND BY LAREFY TAYLOR 


190 
195 
119 
115 
1Z2@ 
i25 
130 
135 
149 
145 
15@ 
155 
16@ 
165 
17® 
17S 
189 
185 
187 
190 
i95 
290 
2902 
205 
210 
215 
217 
220 
222 
222 
230 
235 
237 
2490 
242 
245 
25@ 
Lon 
257 
250 
265 
267 
279 
ZtS 
2890 
282 
285 
293@ 
235 
300 
395 
319 
315 
320 
322 
eC Pae 
330 
332 
335 
340 
345 


REM HHHAHHSHEMHHHHHAAHHHRHAKKRAHHHRKHRH RARE SHRRARERE AHF HAH 
REM # MODIFIED FIND UTILITY BY LARRY TAYLOR 1985 # 
REM # ADAPTED FROM ARTICLE BY C. STAMBOULIDIS, PUBLISHED # 
REM # IN PERSONAL COMPUTER GAMES IN APRIL, 1985. 4 
REM KHHHHHHHHHHHHHHHHHHHHHHSRERARRRH SHREK RHEE SHKHRREERE EES F 


REM #HHHHHHHHRHHHHHHHHRRHHHHHHEHEAHHRAHRERHRERRARRR RHR EHH 
THE ROUTINE IS USED TO LOCATE A STRING OF CHARACTERKS# 
WITHIN A BASIC PROGRAM. THE ROUTINE IS CALLED WITH # 
PRINT& FOLLOWED BY THE STRING IN INVERTED COMMAS. # 
ANY LEADING SPACES IN THE STRING WILL BE IGNORED. # 
THE NUMBER OF THE LINE, CONTAINING THE STRING AND # 
ITS LOCATION. IN MEMORY, WILL BE PRINTED ON SCREEN. # 
REM #H#HHHHHHHHERHHHHHHHHHHHHHHHREHRHERAHARHHERREER ERAS HEE T ES 


og 
tsi 
wie 
tt at 4 te 3 te 


REM ae ii ld bhai hha eat aaa eal 
REM # CALCULATE THE NEW TOP OF MEHORY POINTER 

REM peceausscaceaseksseseasesiécietesseunaneruseseeieaiaes 
REM 

NB= 133: TM=( PEEK (30897 ) +PEEK ( 30898 ) *256 ) -NB 
HB=INT(TM/256) : LB=TH-HB&£256 

POKESO897 , LB: POKES@893 , HB 


REM 
REM #HH#HHHHHRHHKHHRAHHHHHHAHHHAHHERHRARKHHHRARHSRRE HAH RR HHS 
REM # LOAD ’%’ VECTOR WITH TOP OF MEMORY PLUS ONE # 


REM HHHHHHHHHHHAHHHHHHHHRHAHKHARRAHHERAHRRRARRHRHK AHS ARASH SF 
REM 
POKES 1125, LB+1: POKE3S1126,HB 


REM 
REM #H#HHHHHHEHEHHHRHERHERHHSHHESHARAHHRHHERHEREHRRRSA HH FREES 
REM # RESET THE BASIC STACK POINTER # 


REM ##RHHAHHHHHHRKKHHHEHHREAEHRHRRREKHH SHEA ARS RHRHR AHR R SEE 
REM 


CLEARS®@ 

REM 

REM H#HHHHHHHHKSHHERHHHHHHRHHARRAHKHRRRRRERAKKRARHHRERRHHEH 
REM # GET NEW TOP OF MEMORY AND MOVE TO NEXT LOCATION 4 


REM ##HHHHHHHRHRHHHHHRHHRAKHRSRHRHRHERAERHRHARKHRHHHHRHRERARHRS 
REM 
TN=PEEK (30897 )+PEEK (30898) x256 


{FTM>32767THENTH=TN-65536 

REM 

REM #HEFHHHHAHHRHRHHHHHRRRRKHHHHHRHKKKRHHRKKHHHRRRRHHRRERRHHS 
REM # LOAD i133 BYTE FIND ROUTINE # 


REM HHHHHHHHHHRAHHRHHHARREHRARHRARRKHRRRRAHRAR HS HFRRRHRS HHS 
REM 
FOR T=1TO133 

READD 

POKETM+T,D 

CS=CS+D 
NEXT 
REM #HFHHHHHHRHHRAHRHKHHHAHRRAHHHSRRKKHRHRER AHHH S HHH AHR HR 
REM # IF DATA CHECKSUM VERIFIES EXECUTE SET UP PROGRAN # 
REM #HRRKHRHHRKHRHHEHHRAHRERSHH ARHHHRHESHHRRHRAHHHSRHER RHA HS 
REM 

IFCS< > 1S8S7THENPRINT“- ERROR IN DATA ENTRY —*: END 


POKE 31124, 195 

REM | 
REM ##HHHHFHRHFHHHARHRHEHHRRSAHERAERHRAKEHERHHHARRHHSRHERHRH 
REM # FIND ROUTINE DATA IN DECIMAL FORM # 


REM #HRHHHHHEHHHHHREARRHRHARRAHHRHRRRAHRRHAHHARHERHRRHAHRHRT AS 


ENHANC I 


3590 


3698 
365 
37@ 
375 
380 
385 
390 
395 
4990 
495 
419 
415 
4290 
425 
430 


449 
445 
4590 
455 
460 
465 
479 
475 
480 
485 
430 
495 
300 
3905 
5910 
315 
229 
525 
530 
535 
549 
545 
5598 
955 
560 
965 
37@ 
S75 
3890 
585 
5390 
3935 
600 
69S 
610 
615 
629 
625 
630 
635 
640 
$45 
650 


NG 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


FIND CONT. “ a 


35 

205, 140,53 
$8,214, 122 
61 

50,214, 122 
183 

49,116 


221,42, 164,120 : 


221,126,9 
183 

32,6 
221,126, 1 
183. 

40, 100 
221,1190,9 
221,102, 1 
34,176,121 
221,119,2 
221,192,3 
34,173,121 
221,229 


34,40, 122 


2905, 126, 43 
17,232, 121 
58,214, 122 
71 

33,156, 122 
38 

126 

183 

40,54 

26 

183 

49,37 

ig 

199 

32,236 
16,241 
62,32 

205 ,58,3 
42,173,121 
205,175,115 
62,32 
205,58,3 
42,490,122 
205,175, 15 
$8,174, 122 
192,11 
239, 32 
32,6 


221,42,176, 121 


24,151 
62,13 
205, 58,3 
24,243 
195,25, 26 


e 
* 


+ 
* 
°° 
Cd 
* 
- 


e 
sd 


Cd 
°° 
4 
a 
2 
e 
* 
° 
Sd 
»s 


* 


ad 
= 
o 
» 


4 
* 


» 
9 
% 
$ 
2 
9 
9 
* 
9 
9 
? 
? 
3 
? 
% 
% 
% 
. 
> 
° 
9 
% 
? 
% 
9 
? 
2 
> 
2 
o 2 
« 9 
? 
% 
? 
3 
$ 
3 
? 
% 
> 
9 
» 
9 
% 
9 
9 
? 
> 
* 
3 
9 
? 
a 
? 
? 
? 
? 
> 
? 
9 
9 


* 
7 


» 
Cd 


* 
oe 
@ 
Cd 


Sd 
® 


ad 
- 


. 
« 


* 
* 


INC HL 

CALL 358CH 
LD A, (7ADG6H) 
DEC A 

LD (7ADGH),A 
OR A 

JR Z, 74H 

LD IX, (78A4H) 
LD A, (1X+@OH) 
OR A 

JE NZ, 6H 

LD A, (1X4+@1H) 
OR A 

JR Z,64H 

LD L, ( 1X+@0H) 
LD H, (1X+01H) 
LD (79BOH),HL 
LD L, (1X+@2H) 
LD H, (1X+@3H) 
LD (79ADH),HL 
PUSH IX 

POP HL 

INC HL 

INC HL 

INC HL 

INC HL 

LD (7428H) ,HL 
CALL 2B7EH 
LD DE, 79E8H 
LD A, (7ADG6H) 
LD B.A 

LD HL, 7A9CH 
INC HL 

LD A, (HL) 

OR A 

JR Z,36H 

LD A, (DE) 

OR A 

JR Z,25H 

INC DE 

CP (HL) 

JR NZ,ECH 
DJINZ F1H 

LD A, 20H 
CALL 033AH 

LD HL, (79ADH) 
CALL OFAFH 
LD A, 20H 
CALL @33AH 

LD HL, (7A28H) 
CALL OFAFH 

LD A, (7AAEH) 
ADD A, OBH 
AND 20H 

JE NZ, 06H 

LD 1X, (79BOH) 
JR 97H 

LD A, @DH 
CALL @33AH 

JR FSH 

JP 1A19H 


BASIC BYMOVE BY CHRIS HOBROUGH 


19 
12 
14 
16 : 
2O ° 
39 
4@ 


70 : 
99 ° 


a — - 3 


CLS: IFPEEK (30797 }) =128THEN 100 
TM=PEEK ( 308697 ) +256*PEEK (30898) -28 
POKE30897 , TH-256* INT (TH/256) : POKES0898, INT(TM/256 ) 
CLEAR 100: POKE30797, 128 


FORA=1TO28:READ B. 
POKETM—-65536+A, B: NEXT: AD=THN+26 


POKETN-65536+20, AD-2S56X INT( AD/256 ) 


POKETM-65536+21, INT(AD/256) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


> @ as 


. @ 


42,71,120 
237,91,73, 129 
237; 134.75, 129 : 


ee ee 


237,176 : 


24,2 


237, 184 


201 


2 
> 


aw m= 
CLS: PRINT@198, “BLOCK TRANSFER DEMO" 
PRINT@260,“*PLEASE WAIT 25 SECONDS" 


PK=29 184: FORX=@T0255 
POKEPK, 128 
PK=PK+1:NEXTX 
CL=143:D=1:F=1 
FOR!I=1T0O2: FORJ=-1T04 
FORK=1T04: FORX=1TO8 
POKEPK,CL:TC=CL:CL=CL+16xD 
IFCL>2S5THENCL=143E 
IFCL< 143THENCL=255 
PK=PK+1:NEXTX 
CL=TC : D=Dx(-~1) 

NEXTK :CL=CL+ 16*F 
IFCL>255THENCL=143 
NEXTJ:F=Fx(-1) 
NEXTI : FORX=@TOZS5 
POKEPK, i28 
PK=PK+1:NEXTX 


+a 


Y=28672:Z=512: FORI=1TO19 
K=29 184 : GOSUB2Z900 
X=29440 : GOSUB2000 

NEXTI :GOSUB3S000 


*TRNSF 


% 
% 
? 
9 

3 
3 

° 
% 

> 


> *NVUP 


"END 


ld 8 
TH=PEEK (30897 ) +Z256*PEEK (30898) :OG=TH+ 1 


LDIR 
JR 
LDDR 
RET 


> ERK KKK KK KKK KEK KE KKK KKK KKK KK KKK AK KAKA KKK HK KK KKK KKK KKK AE 
>* BASIC BLOCK TRANSFER DEMO BY CHRIS HOBROUGH - DEC ’8S7 #* 
> KHOR K KK KKK KKK KIO KK KKK AK KKK KKK AK K HK KKK KKK KK KKK KAKA KK KKK 


HL, (FROM) 
DE, (TO) 
BC, (COUNT) 


HL,DE 
HL, (FROM) 
M,MVUP 


END 


() 


BASIC BYMOQOVE CONT. . . e 5 : : 


i490 '" Sn tT i 

1500 CLS: PRINT@S6, ;: 

1520 INPUT* SOURCE ADDRESS (FROM) "5 
1549 INPUT“ DESTINATION ADDRESS (TO) a7 
156@ INPUT" NUMBER OF BYTES (COUNT) . 


1580 GOSUB200@ : GOSUB3000 : GOSUB 1500: END 
1609 GOSUB2000 : GOSUB3000 : GOSUB 1500: END 


1900 

199Q  ° "MAA eh) a = il 8 od a ee 

2009 POKE30791, X-256KINT(X/256) "FROM -- LO BYTE 

2010 POKESO792, INT(X/256) >FROM -~- HI BYTE 

2020 POKESO793, Y-256X INTC Y/256) "IO ===>. LO BYTE 

2030 POKESO794, INTC Y/256) "TO. -S-> Hi BYTE 

20490 POKESO795, Z—-256xINT(Z/256) "COUNT - LO BYTE 

2050 POKESO796, INT(Z/256) *COUNT - HI BYTE 

2060 POKESO@862, 0G-256*INT(OG/256) *SET USR POINTERS - LO BYTE 
2979 POKESOS863, INT(0G/256) "SET USR POINTERS -— HI BYTE 
2080 C=USR(O) *CALL TRNSFER ROUTINE 

2O0S@ RETURN 

2990 : 


3000 PRINT@483, “PRESS <RETURN> TO CONTINUE"; 
3010 CHS=INKEYS:CHS=INKEYS 
3029 IFCHS<>CHRS( 13) THENS® 1QELSERETURN 


BLOCK TRANSFERS FROM BASIC by Chris HOBROUGH. :- 


Many VZ*ers who read my recent article on moving biocks ofr 
memory around may like to take advantage of the techniques but 
not have sufficient experience With machine language to do so. 
Well here is a program which will allow you to set up and cali a 
M/L block transfer routine from basic. 


The routine is the final version from the article, as it’s 


the most versatile. It’s 28 bytes long and sits in a protected 
area at the top of RAM. In addition, it uses 7 bytes of free 
Space in the comms region; 3 pairs of bytes which hold the 


parameters for the routine (FROM, TO & COUNT) and one which is 
used as a flag so that memory is not lowered a bit more each tine 
you run the prograa. 


The first section lowers the Top of Memory to make room for 
the routine and will work for any size system. Then the routine 
itself is loaded into this safe area. 


The next section, from 100 to 1600 is for demonstration only 
and consists of a “flashy” intro to show what can be done and a 
user input piece which accepts the parameters to move any block 
you wish. Of course you will have to put something in there to 
nove first and also a routine to PEEK at the resuits. 


Finally, there’s the routine which passes the parameters for 
the move to the transfer routine and then calls it. 


You can adapt this for your own needs by replacing 1900 to 
1600 with your own program. [t must define X (FROM), Y (TO) and Z 


EDITOR'S NOTE :- 

This program would be ideal to make up your own HI-RES slide 
show. Tape users could incorporate Dave Mitchell's CSAVE/CLOAD 
routine from last issue. | 


DISKLIST UPDATE BY JOE LEON 12 


PE Orsk MENU E 
REM FILE | 
Save O8TA Ww - LOAD DATA | 
OIRFECTOR’ bo - ITHIT O©Sk | 


P-MENMU -PEER @-SAVE B-REPL 





Some of the changes made to DISKLIST are cosmetic while 
others are more functional. As before attempt has been made to 
keep to original style and the extra functions easy to use. 


POKE30777,1 in lines 30, 600, 1000,700@ and 4001@ are POKES that 
speed up PRINTing to the screen. 


POKE30777,35 in lines 645 and 1205 turn speed printing off and it 
must be done before disk access to stop interference with drive. 


Lines 48, 2019, 2920, 3250 and 3260 add COMMAND line to ENTER 
DATA and VIEW NAMES screens. Lines 2020 and 3260 only need 
PRINT@@, changed to PRINT@32, no need to retype whole lines. 


LINES 850 to 915, 5330 to 5350 and 6110 are the modified disk 
SAVE/LOAD routines providing two extra functions. Lines 850 to 
915 are presented whole as some routines have been shifted around 
and line numbers have been renumbered with some lines not being 
altered exept for line numbers 


S -— SAVE DATA - When you press ’S* an UPDATE DATA FILE Y/N 
option will be presented With the cursor flashing over the °*N?’. 
Pressing RETURN will take you to normal SAVE. Entering ’Y’ and 
pressing RETURN will allow you after entering filename to first 
ERAse your DATA FILE and then SAVE your DATA FILE using tne same 
filename. In other words, automatic update. 


L - LOAD DATA ~ When you press ’L’ a MERGE DATA FILE - Y/N option 
will be presented with the cursor flashing over the °*N’. 
Pressing RETURN will take you to normal LOAD. Entering *Y’ ana 
pressing RETURN will allow you to MERGE DATA FILES from disk with 
FILES in memory. 


Only a few minor changes were needed to allow file merging. 
They are in lines 856, 868 and 6119. | 


®. CLEAR FILE - A clear file option has_ been provided. 
Previously this option was available only after SAVING a file, 
or you had to use BREAK and RUN program again. As the CLEAR FILE 
was already part of MAILING LIST it was easy to implement. Lines 
19@3@, 1225, and 5330 to S350 contain the changes. 


In the Main Menu the FILENAME is now displayed and is the 
last change done to DISKLIST. Exept for Disk functions, most 
modifications can also be incorporated in MAILING LIST. 


DISKLIST UPDATE CONT. “ = - S 1 
3@ POKE30777, 1: FORSC=33TO0449STEP32 

49 OPS=" (UIT EICROLL iHELETE mRINT" 
600 POKE30777, 1:GOSUB30:COLOR7: PRINT@S4, “3 MAsRe| SDE I “;DTS 


645 


850 
852 
854 
856 
858 
860 
862 
864 
866 
868 
878 
880 
882 
884 
886 
888 
839 
892 
394 
896 
898 
300 
9@2 
304 
9306 
3908 
315 


19900 
1929 
1925 
1930 
1205 
{1225 


29190 
2929 


3250 
3269 


3330 
53490 
5350 
6119 
79OO 


409i 


PRINT@SS4, “| BSR See eee ee I *“:SOUNDS3Q, 1:POKE30777, 35 


PRINT@354, SP$: PRINT@380, "N*“ 

PRINT@3S4, “9 las s we “3 :<SOUND3O, 1: INPUTNS 
N$-LEFTS(NS, 1): IFNS<>"N"ANDNS<> "Y"THENSS®O 

IFN$S="N" THENOF=0ELSEOF=DT 

IFNS= "Y "THENSSQELSEIFNS$= "N" THENS60ELSE8S9 

PRINT@354,5P3 

PRINT@O54, "] (Meza § 0 * |; SOUNDSO, 1: INPUTNS:GOSUB775 
PRINT@354, SPS: PRINT@450, SPS: SOUND3@, 1: AD=31603:GOSUB22 
AD=316 19: GOSUB22 : AD=3 1646 : GOSUB22 : AD=3 1674: GOSUB2Z2 
GOSUBE690@ : GOSUB2Z9: DT=OF +DT : GOTO 19000 

IFDT< >OTHENSS4ELSEPRINT@SSS, " ‘ 
SOUNDS, 7: GOTO645 

IFDMS="L"THENS6O - 

PRINT@S54, SPS: PRINT@38Q, "N" 

PRINT@SS4, “2 see ee | > SOUNDS, 1: INPUTNS 
NS=LEFTS (NS, 1): IFNS<>"N" ANDNS< > "Y "THENSS8G6ELSEPRINT@S54, SPS 
IFN$S="N“THENUP=90ELSEUP=1 


5 Slee I 


PRINT@O54, "§ SMSO ees gO 3s SOUNDSO, 1: INPUTNS:GOSUB775 
PRINT@450 , SPS; :<SOUND3®O, 1: IFUP=O0THENSO6 


PRINT@354, SPS: PRINT@SS4, "9 MSpace eee I 
AD=3 1481: GOSUB22 :GOSUB12 

PRINT@354, SPS: AD=31533: GOSUB22: AD=3 1549: GOSUB2Z2 
AD=3 1576 : GOSUB22: AD=3 1674 : GOSUB22 : GOTO5000 


"3;NS:SOUNDS®O, 1 


POKE30777, 1: IFDTS=""“THENDTS="NO DATE" 


PRINT@66, "RECORDS IN FILE “::PRINT@82, NS 
PRINT@9O, USING “=##4" 5 DT 


PRINT@®98S,MI$:PRINT@130,"1. ENTER DATA @. CLEAR FILE"; 


POKE30777,35 
[FI $="0"THENIFDT=O0THEN 1400ELSES260 


CLS: PRINTOPS 


COLORS: PRINTGQ372,, * qu; 


9 


CLS: PRINTOPS 


COLORS : PRINT@S2, | i 


IF[$="1"THENSSSOELSEIFIS="2"THENS3S40ELSES3 10 
DT=9:STS="":NS="*":DTS="NO DATE" 

IFDMS= "S " THENGOOELSE 1000 

FORN=OF+1TOOF+DT 

POKE3O777, 1:GOSUB40000 : GOSUB3S@: COLOR7 


@ POKES@777,1:CLS: COLORS, ®@ 


Sk BIB FAM FPART Til . é “ é zs 1 2 


On next page are changes to M/WORDS program to incorporate changing of 
pointers. Two screen dumps are shown of the MENU. First one shows changed menu 
while second shows pointer routine in action. Lines 725, 730, 825 and 928 to 
978 are the changes to M/WORDS. 


Using M/WORDS the following words were enabled :- 
AUTO, CDBL, CINT, CSNG, DEFDBL, DEFINT, DEFSNG, DELETE, ERL, ERR, FIX, FRE, MEM, 
ON, POS, RANDOM, RESUME, STRINGS, VARPTR. 


No pointers had to be changed to enable above words, just inserting them in 
the right place did the trick. There are 4 more words that can be enabled as 
the routines are in ROM, but their place in the word table has been taken. 


TRON-COPY, TROFF-COLOR, DEFSTR-VERIFY, ERROR-SOUND. 


We can’t disable existing words, but we can use some of the unused DISK 
WORDS from the word table. I placed the above 4 words in the tne following 
locations in the word table. Because of compatibility I hope other VZ users 
adopt the following as the standard. 


The tables below are in the following format :~ WORD ADDRESS - WORD - TOKEN 
- ROUTINE ADDRESS - POINTER ADDRESS,LO-BYTE - POINTER ADDRESS,HI-BYTE. See 
issue # 14 for complete word table. 


3856 TRON 162 7671 6246,247 6247 ,29 
2868 ERROR 163 91980 6248,244 6249,31 
3871 TROFF 166 7672 6254,248 6255,29 
5905 DEFSTR 768 768@ 6278,0 6271,30 


The word ERROR can be used two ways. ON ERROR or ERROR X. With the changes 
done so far ERROR X will work, but ON ERROR will not although ON SOUND will and 
has same function as ON ERROR. The reason is that the word SOUND has replaced 
FRROR in the word table. If you type in PRINT PEEK (8@45) which is second byte 
of ON routine the value i158 will be displayed. 158 is the TOKEN for SQUND. fo 
get correct ON ERROR syntax is quite easy, just POKE8@45,163. You'll notice 150 
is the new TOKEN for ERROR. 


ERROR X is used to simulate an ERROR - IE :- 1@ ERROR 20 
When RUN the message UNPRINTABLE ERROR will be displayed on screen. 


Besides the 8K BIB RAMI also have 2K BIB ram installed at 6Q00@H-67FFH. 
Dave Mitchell‘’s Extended DOS lives there as well as other routines. Three of 
them are Larry Taylor’s modified FIND routine, Robert Quinn’s PUT and GET (Block 
move) routines and DOS reset. Below are the words, addresses, etc. 


5729 pOS 133 145 6188,145 6189,2 

5865 GET 164 26059 6250,203 6251,101 
5868 PUT 165 26045 6252,189 6253,101 
S876 FIND 167 25912 6256,56 6257,101. 


DOS will work without 2K BIB RAM while others wont. Qther routines can be 
put in 2K BIB RAM and unused disk words used like above to activate routines. 
On the next page is info on PUT, GET and FIND routines and how to place them in 
2K BIB RAM. Your memory locations may vary, 50 adjust accordingly. 


The BIB RAMS are ideal for developing routines and trying them out in actual 
operation without having to burn an EPROM first. When routines are ready, 
Simply unplug BIB RAM and put it in your EPROM programmer /copier withqut losing 
any data because of built in batteries. 


tf you have any ideas on how to improve the VZ basic or DOS ROMS or have any 
routines that could go in <k SIB RAM then please share with other VZ ‘isers 30 we 
cam all benefit. Possible improvements - SOUND, PRINTER routines, etc. 


Sk BIB RAM FART ITT CONT. . 2 13 





S2o 


9328 
930 
932 
934 
938 
949 
942 
944 
9348 
ISO 








~ TEST FORE & - SAVE ROM & | Ho- TEST FORE §& - SAVE FOP & 
~ PORE WORDS i - LOAt Bom @ pl da - PORE WORDS i - LOAD Rit by 
—~ WOR FEE ts - MOVE RIP & | a o- WORoS PEER ig - MOMWE Rum oo 
| 
| 


eee, chee | ere ae tee a 


ly - MEM PEEK if — OTR TOR’ 
e@-—- aLT POINTS S B-SsAVE G-RERL 


ae TE PEER te - OLTRECTOR'r 
~ HET POLS seve ge Bee, 





+ eer we 





PRINT" tii - MEM PEEK (a) — DIRECTORY ":PRINT 





PRINT” f%} -— ALT POINT’S (-SAVE G-REPL" 
IFD$="T"THEN2Z@OELSEIFDS="M" THENZOQOELSEIFDS="A "THENSSOELSESOO 
PRINT@409, SPS: PRINT@S85, "9 ";:LE=5 
SOUND3@, 1:GOSUB2000: IFINS=""THENSSOELSEAD=VAL( INS) 

IFAD< OORAD> 3276 7THENPRINT@409, SPS: GOTOS39 

PRINT@417, "3 [SRMN= cH Seeded ellos P| >: SOUNDSO, 1: LE=S 


GOSUB2000: IFINS=""THENS40ELSEA i= JALC INS) : A2= Ai+1 
IFA1< 1ORA1>32767THENPRINT@441,5P8:GOTOS49 


PRINT@448, " 9 (plaM= aS ea Ge eee ys SOUNDSO, 1:LE=1 


952 GOSUB2900@ : HLS=INS: IFHL$<>"“H" ANDHLS< >"L"ANDHLS< > "Q" THENSS@ 


954 
356 
9358 
968 
962 
364 
366 


HB=INT(AD/256) : LB=AD—-HBX256 
IFHL$="Q" THEN 1SQ@ELSEI FHLS="H"THENA 1=A1-16984:A2=A1+1 
GOSUBS62 : GOTO974 


PRINT@449, "\M@e} ="; USING" #H#HHHH" FS ALS: PRINT", "5 
PRINTUSING "###" 3LB; 
PRINT” (gag ="S USING" ######"5A2Z5:PRINT", "3 


968 PRINTUSING "###" ;HB 


37O 
Siz 
9374 
376 
378 


1@ 
29 
3@ 
49 
335 
340 
345 
700 
75@ 


1@ 
2 
30 
4@ 
30 
50 
7@ 
830 
3@ 


POKEA1, LB: POKEA2, HB: RETURN 


PRINT@481, "9 (ian 
GOSUB9@5 : GOTO 180 





BY"; :GOSUBSI5 


> KKK AR KK KKK RK ROK RK KK OK KK OK RK OK AK OR KK A KK OK OK KOK OK OK KK KOK KK OK 
’* FIND ROUTINE ~- 25912 TO 26044 - 6256,58 LO 6257,101 HI * 
Re ee een ape eae eae ee may ep ee ee ne aoe wee perio 


‘CLS: COLOR,@:FOR F=25912 TO 26044:READ D:POKE F,D:NEXAT 
REM - LINES 350 TO 650 FROM BASIC FIND ROUTINE 


COLOR, 1: SOUNDS®O, 1320, 3330, 1 


* KKK OK KK KKK KR KCK RK EK EC KR AC KK RACE ARK ARK RK RK KA KK KKK 
‘* PUT ROUTINE — 26045 TO 26058 - 6252,189 LO 6253,1@1 HI * 
** GET ROUTINE —- 26059 TO 26072 - 6250,203 LO 6251,101 HI * 
KK RRR KK KK KK OK KK KK KK KKK KOK OK KOK KOK KOK KKK KKK KK KK ACK KKK 


CLS: FOR P=26045 TO 26072: READ G: POKEP,G:NEAT 
DATA (229,33, 0, 1125.17.04 1145-15032, 237, 1/6; 225, 201 
DATA 229, 33,9, 114, 17,9, 112, 1,90,2, 297, 176, 225, 291 
SOUND3@, 1529,3330, 1: LIST-49 


LPRINYTER BY ROBERT QUINN : ‘ : 1 << 


LPRINTER allows you to use your VZ asS a typewriter, 
lprinting upper case, lower case, normal or inverse or graphic 
characters. 


Switch on your PRINTER PLOTTER. RUN LPRINTER and a blinking 
cursor will appear on a biank screen to indicate your start 
position. Type, using any of the character keys on the keyboard 
by themselves or with SHIFT key held down. The corresponding 
character will PRINT on the screen and LPRINT to your printer. 


LPRINTER starts up in normal upper case mode. Press CTRL key 
to shift to lower case Iprinting; press CTRL again to return to 
upper case. . 


Hold SHIFT key and press X key to switch between normal and 
inverse printing and lprinting: inverse iprinting is 
distinguished from normal Iprinting by underlining. 


Carriage return will operate automatically to start a new 
line when end of line is reached, though end of LPRINT line-—4@ 
characters/line--will not correspond with end of screen line--32 
characters/iine. Carriage return can be accomplished anytime by 
pressing RETURN key. 


Backspacing to start of LPRINTER line can be accomplished by 
holding SHIFT key and pressing B key. Every time B key is s0 
pressed, the pen holder will move left one character. Screen 
cursor will backspace also. 


Cursor will blink magenta color character when 35th position 
on LPRINTER line is reached and a warning hi-lo buzz will sound, 
allowing you to decide whether you can finish the current word in 
she remainder of that line or to execute carriage return. 


Hold SHIFT and press C key then press number key (i to 4) to 


select direction of Iprinting (right, left, up or down?):- 
{ key is down 

2 key is tleft (lprinting is upside down) 

3 key is up 

4+ key is right 


Hold SHIFT and press VY key to select change cf character 
size. Now press a number key (1 to 9). The greater the Aumber 
the larger the character size selected for. If no number key is 
pressed then size ® (smailest) is selected. 


NOTE:- the flashing color cursor at position 35 ‘five characters 
from end of iprint line) is designed for use with a character 
size setting of one (4@ characters “line). This is the character 


size LPRINTER starts up in. 


Hold SHIFT key and press C key twice for SCREEN JOPY, 
producing a printout of the entire content of the screen, 
nornal, inverse and graphics. Character Size reverts t3 sice 
one for screen copy. 


You can escape SCREEN COPY anytime by pressing SPACE bar key. 


With LPRINTER in memory but not RUNing, SCREEN COPY can be 
used by entering the command GOSUB3OO and pressing RETURN xey. 


LPRINTER CONT. - . ‘ é - “ - é 1 


1 KKK IK KKK ACR IK AKA KAKA KAA HHA AKA KAA KKK AA A HA 
2 °* LPRINT UPPER/LOWER CASE, GRAPHICS AND INVERSE CHARACTERS * 
3 ’* USING YOUR PRINTER/PLOTTER --- WRITTEN BY ROBERT QUINN * 
4 CII CR RI AO IKK KAKA AKA AKA A HH AAA AK EK 
Ss . 
6 
7 


PN=PEEK (30744) 
PK=224 : POKE30862, 80: POKE30863, 52: IFPEEK (30744) =1THENPK=207 
12 CLS: SOUNDO, 2: LPRINTCHRS( 18) ;"S1":SS=-2:S6=-12:GOSUB45 
15 AS INKEYS: AS=INKEYS: IFAS< >" “THENX=USR(X) : GOSUBSO: GOSUB45 
2@ IFPEEK (26875) =249THENSOUND2®O, 1: P=NOTP 
21 IFPEEK (26875) =243THENV=V-—1:SOUND15, 1 
Ze LFV=-2THENV=@ : POKE30744, 1:GOSUB300 : POKE30744, PN 
23 LFPEEK ( 26875 ) =2 19ANDV=1THENSOUND29, 1:V=2 
24 IFPEEK (26875 } =2 19ANDV=OTHENSOUND2®, 1:V=1 
25 LFPEEK (26877 )=2S 1THENK=NOTK: SOUND29, 1 
26 LFPEEK ( 26875 ) =250ANDD>OTHENGOSUB20@ : GOSUB45 
27 IFC=1THENPOKEA%, T% 
28 IFC=1Q0ANDD=3STHENPOKEA%, 239: GOTO3® 
29 IFC=10THENPOKEA%, PK 
3@ C=C+1i: IFC=20THENC=1 
49 GOTOIi5 


45 A%=PEEK (30752 ) +256*PEEK (30753) : TX=PEEK(A%) :C=10: RETURN 
20 I FV=1LTHENV=VAL( AS) :SS=-1-V:S6=SSx6: LPRINT“S"3 ¥: V=0: RETURN 
SZ LFV=2THEN4@@ELSE1 FY=- 1THENV=0 : LPRINT“Q";VAL(AS) : RETURN 
S55 A-ASC( AS) : B=A: IFP=- 1ANDA>31ANDA<G4THENB=B+ 192 

S®@ IFP=-1ANDA>6GSANDA< 128THENB=B+ 128 

65 IFK=-1ANDA>G3ANDA<9SSTHENA=A+32 

7@ IFA> 127THENGOSUB 110:GOTOS® 

30 LPRINT"P";CHR$(A): IFA=1STHENLPRINT“A*: LPRINTCHRS( 13) 
90 IFP=-1ANDA< 127ANDA>S1ITHENLI=1 

92 [FL1=1THENL1=0: LPRINT"R"3SS*6;",@":LPRINT"P";CHRS(Q5) 
25 IFB=13THENPRINT" ";CHRS(8)3;:D=-1 

199 PRINTCHRS(B);:D=D+!: IFD=35ANDSS=-2THENSOUNDS1,2;29, 1 
102 IFD=INT(96/(ABS(SS)*1.2) )+1THEND=1:GOSUB109 

10S RETURN 


199 LPRINT"A": LPRINTCHRS( 18): PRINTCHRS( 13); : RETURN 

110 LPRINT“IR®@, °3-SS 

120 LPRINT"J";-SS*4;",9,0, "3;-S63‘, %:S5*43",9,90, "356 

{22 S2=2*SS:S3=3*55 

ize I FA=129THENLPRINT"R“3-S23", 0" :GOSUBZ5@ELSEI FA= 130THENGOSUBZ50 
12@ IFA=131THENGOSUB2S®@ : GOSUB259 

185 IFA=132THENLPRINT"R";-S2;3", "3-53: GOSUBZ259 


149 i ¥a= 1S3THENLPRINT"R" 3-S2;3", 9" :GOSUB250: LPRINT"R"3525","5-SS 
142 IFA=i133THENGOSUBZS®O 

145 IFA=134THENGOSUB250: LPRINT"RQ, "3;-S3:GOSUBZ2ZS5SO@ 

id@ IFA= 135 THENGOSUB2590: GOSUB250: LPRINT"R"3S23", "3-S3:GOSUBL590 
155 IFA=1360RA=137THENLPRINT "RO, "3 -S3:GOSUB250 

160 I[FA=137THENLPRINT“R®@, "3S3:GOSUBZ5O 

165 I[FA=1380RA=1390RA= 142THENGOSUB250: LPRINT"R°3S235","3-S3 


168 [FA=138THENGOSUB2Z59 

179 IFA=139THENGOSUBZ5@: LPRINT"R®@, "3;53:GOSUBZ50 

175 IFA=14@ORA=!41THENLPRINT" RO, ";-S3:GOSUB250: GOSUBZ50 

18@ IFA=14i1THENLPRINT"R"352;", "SG: GOSUB2S5®@ 

185 IFA=142THENGOSUB25S@ : GOSUBZSO 

190 I[FA=l143THENLPRINT“HP#" 

195 LPRINT"HR";-SS*6;",0": RETURN | 
29O SOUND 10, 1: PRINT" ";CHRS(8) 3; :LPRINT"R";SS«6:",9":D=D-1: RETURN 
250 UPRINT 3S "3 -S27" 473 -5S7 bPRINI'R” De" OY ST PRINT "35a; 7 Oo 
260 RETURN 


LPRINTER CONT. = a < : r is ‘ LS 


30@ AS="1":V=1:GOSUBS®@ 

305 LPRINT"“A":LPRINTCHRS( 18) :D=0: FORT=28672T029 183: A=PEEK(T) 
319 ILFA< 32THENLPRINT"P"CHRS(A+64) ELSEIFA<64THENLPRINT"P"CHRS(A) 
320 IFA>GSANDA<9SG6THENLPRINT"P"CHRS(A):L1=1 

330 IFA>SSANDA< 128THENLPRINT"“P"CHRS$(A-64):Li=1i 

335 IFLI=1THENL1=@:LPRINT"R";SS46;",@":LPRINT’P*CHRS(9S) 

340 IFA>127THENGOSUB3790 

350 D=D+1: I1FD=32THEND=0:LPRINT*’A":LPRINTCHRS( 18) 

360 IFINKEYS=" “THENT=29184 

365 NEXT: D=0:LPRINT"A":LPRINTCHRS( 18) : RETURN 

3790 IFA> 143THENA=A- 16: GOTO379 

380 GOSUB110: RETURN 

A@Q V=O:LPRINT"RO, ";VAL(AS)*12*(-SS): PRINT" “;CHRS(3) 3 

41@ FORJ=1TOVAL( AS) : PRINTCHRS(27) 3 :NEXT: RETURN 


M-KEYBOARD UPDATE BY JTOCE re Th ‘ : 


In last issue I described how to replace Vi Hembrane 
Keyboard, also you may have read of my problems with ny VZ 
system. Instead of of spending lot of time trying to trace 
problem/’s I decided to upgrade my VZ 300 to No. 1 status. 


Unfortunately replacing M/Keyboard did’nt cure all the 
problems. Some keys still required a hard (Ouch) jab to 
register. While installing the new PIEZO TRANSDUCER in the VZ as 
per article in page 5 of this issue another problem appeared with 
the ribbon cable connecting the P.C.B. to the keyboard. 


The ribbon cables insulation parted company allowing Some 


wires +o touch each other. Il had no choice but to replace the 
ribbon cable as it could’nt be repaired and that iS when nore 
problems arose. When the ribbon cable was replaced and sefore 


reassemling keyboard I decided to clean the P.C.B. using a vsvencil 
eraser as someone advised me that it would work. 


Put everything together and only a few keys worked. Some 
more consultation and metho was tried with worse result. 3y now 
i was desperate as I needed a reliable VZ to prepare this issue. 
More consultations followed with the correct advice received at 
long last, thanks Dave Mitchell. 


So if you’re having trouble with your keyboard with some of 
the keys not registering then don’t rush out and buy a membrane 
keyboard like I did. Try cleaning your P.C.B. first as it’s much 
cheaper. The magic solution is :- 


DICK SMITH SPRAY CLEANER - Cat. No. N-1501 - $3.25 


Do not spray the M/Keyboard, only the P.C.B. and wait about 
5-10 minutes for the P.C.B. to dry out before reassembling. 
Since using the cleaner on the keyboard all the keys work and 
they are very sensitive to the touch now. 


NOTE :- Use caution when opening up the YZ as things can and do 
zo wrong. The two most likely problem areas are the keyboard 
ribbon cable and the onvoff switch leads, poth are brittle and 
break very easyly. 


BLOcK MOVE &® COMPARE — D- BOYCE 1s 


1@ 
20 
30 
49 
3O 


119 
£15 
120 
139 
149 
15@ 
Loe 
iS5 
169 
162 
165 
17® 
189 
190 
195 





460 
479 


10@ 


—p») 


OK KK OK OK IK 2 OK OK OK OK 2K ROK I AK AC OK ER EK ACK 
"* FAST BLOCK MOVE & COMPARE ROUTINE BY DAVE BOYCE * 
v* WITH ASSISTANCE FROM DAVE MITCHELL * 
CCCI OR KAI AC AK OK A ICR A ACK COKER KK KOK 


' STR'S YYS, YTS 
’ YAR’S MC,L,A,3B,CH,MF,EP,NS,LS,MS,P,EL,EM.NL,NM,C,G,H,D 





MC=29200 : P= Smnere 
TOR L=1 TO 62:READ A:POKE MC,A:MC=MC+1:CH=CH+A :NEXT L 
[es CHe> 5789 THEN SOUND 2,2:PRINT:PRINT"ERROR IN DATA": END 


> 9 ys mt id mS 
DATA2Z29, 213, 197, 33,9,9,17,9,9, 1, 9,9, 237, 176, 193, 209, 225,201 


+ 18 ielolog*i- ats 

DATA 9@,9,229, 213, 197,33,90,90, 17,9,2, 1,0,9,26, 190,32, 16,35 
DATA 19, 11, 129, Lite 32, 245,62,9,50,77,114 

DATA siesta ae aa sane 1, 5 HO a tate 20S, ee Z 





CLS: GOTO308 


7 a aia (a | te a 
MOVE FROM MF LS M5 

MS=INT(MF,/256) : LS=MF-(2564M5) 

“Gd ASB ima = LSB 

POKEP+4, L5:POKEP+S, MS: POKEP+24, LS: POKEP+25, Me 





eB nae EP EL EM 
EM= INT (EP- '256): EL= EP- (256XEM > 
’ “Sid Moo imy LSB 
POKEP+ 10, EL: POKEP+11, EM: POKEP+3@0, EL: POKEP+21, EM 


Mice = =6ONS NL NA 

NM=INT(NS/256) :NL=NS-(2S564NM > 

"id ASB igs LSB 

POKEP+7,NL: POKEP+8,NM: POKEP+27, NL: POKEP+28, NH 
RETURN: END 





PRINT@4 1, “FAST BLOCK MOVE" 

PRINT@108, *&® COMPARE" 

PRINT: PRINT“ USE ONLY POSITIVE NUMBERS EVEN IF ABOVE seve," 
PRINT@2Z60,"1)} - BLOCKMOVE" 

PRINT" 2) -— COMPARE* 

PRINT: INPUT" CHOICE "3D 

IF D=i THEN CLS:GOTO 400 * MOVE & COMPARE 

IF D=2 THEN 5190 ’ COMPARE ONLY 

IF D«<1 OR D>2 THEN SOUND2,2:GOTO 3590 

END 

PRINT@41, ‘FAST BLOCK MOVE® 

PRINT" JSE ONLY POSITIVE NUMBERS" 
PRINT@!134,;:INPUT"HOVE FRON ‘>; MF 
PRINT@193,;:INPUT"NO # OF BYTES TO MOVE “;EP 

PRINTG@ES*, | > [NPUT“NEW BLOCK TO START AT “:NS 

IS NS“ 34008 ,SOUND2, 2: PRINTS281, " " s130TO 4490 
PRINT: INPUT" ARE THESE ENTRIES CORRECT °3 77S 
[BOSC . 97" THEN RUN (CHECK ENTRIES 


BLOCK MOVE &® COMPARE COM ss - . 183 





480 ° "ASS i=cg 
430 GOSUB 219 
500 POKE30862, 16: POKE30@863, 114:X=USR(O) 
S10 PRINT:PRINT* MOVE COMPLETE" 
S15. = 
CVA) Meee: Wore COMPARE. SELF | | 
53Q@ PRINT: INPUT" RUN COMPARISON ROUTINE ";YTS 
S54Q IF YTS<>"Y" THEN END ’ ELSE RUN COMPARE H/C 
550 POKE3O862, 36: POKE3Q863, 114: X=USR(@) 
560 B=PEEK( 29261) 
S7@ IF B=@THEN PRINT" ALL OK": SOUND12,1;9, 1: END 
58@ IF B=1THEN PRINT" (NEW) BLOCK DOES NOT COMPARE" 
59@ PRINT" TO ORIGINAL. BLOCK": SOUND 2,4;32,1;2,4 
600 END 
619 CLS:PRINT@42, "FAST COMPARE” 
520 PRINT:INPUT" ORIGINAL MEM AT “;MF 
830 INPUT“ BLOCK TO COMPARE AT ";3NS 
649 INPUT" COMPARE NUMBER OF BYTES ";EP 
65@ PRINT: INPUT" ARE THESE ENTRIES CORRECT "3711S 
S6Q IF YY$<>"Y" THEN RUN 610 ’°CHECK ENTRIES 
879 GCSUB 219-GOTO055®@ 
680 END 
712 ° MAKE ALL ENTRIES IN DECIMAL 
29 > USE POSITIVE NUMBERS EVEN IF MEM ADDRESS’S ABOVE 32°75" 
7329 ° THE BLOCK MOVE ALSO ALLOWS A COMPARE, 
74Q ° WHERE THE COMPARE IS JUST aA COMPARE 
758@ FOR K=29200 TO 29261: PRINTK:PEEK(K);:NEXT: END 


760 : 
77Q@ ERA’ FASTBM&C " ' LINES 770 TO 790 ARE 
780 SAVE"FASTBM&C" ° FOR DISK DRIVE USERS 


720 STATUS: DIR: END 


ALF DRAWN BY MATTHEW TAYLOR _ Z 2 


Bonk 


a 
Po 
OR i. 
Be 
ae 


idea ae 





FOR SALE — EXTENDED DOS Ww1.@& LS 


EXTENDED DOS VERSION 1.@ (C) COMMANDS :- 


MERGE - MERGES basic file from disk with program in memory. 


DIRA - See example -— T:MENU B: PATCHS. 1 B:WORDPROC 
B:EXTDOS E B:EXTDOS R W:DOS-INST 

LDIRA - As above, but to screen and printer. 

DIRB - See 2xample —- T: MENU Q@1 9@ 7TAESD 8@1B 95352 


B:PATCHS. 1 O1 OB 7200 771F O51F 


LDIRB - AS above, out to screen and printer. 
STATUSA - Prints free disk space to screen on one line. 
LSTATUSA - AS above, but to screen and printer, see below. 
534 RECORDS FREE 63.5@0K FREE 
OLD - Restores a program after using the NEW command. 
OLD. - Prints START, END and LENGHT of program in memory in HEX. 
DEC XXXXX - Converts DECIMAL to HEA 
HEX XXXK - Converts HEX to DECIMAL 


STATUSA and LSTATUSA also works with Version 1.9 DOS. 


The EXTENDED DOS is available in the two versions below :- 
EXTDOS R - T.0.M. SEEKING ae RELOCATING) 
EXTDOS E& - FOR 2K RAM AT 6S800Q@-S7FF HEX 

rice - 818.390 2ach or the two a. $i5.0@. Availble trom :- 


Dave MITCHELL - (@79) 27 8519 

ea. BLEAINSTONE. STREET NORTH ROCKHAMPTON QUEENSLAND 4741 

TOR INFORMATION IN NEWCASTLE AREA :- Joe LEON — (9493 51 2756 

FOR SALE —- DATABASE — DISK + TAPE 

DATA oe i6k - VZ DATABASE. Enter data into records tairty 

Characters iong ‘accepts avepas* characters). Runs on VEZ 200+ 16k 

oe To, 1.00% a4vailable on disk as DISK DATABASE or 35n tape 435 
ASSETTE DATABASE. 

Facilities include data entry into record or Shoice: into 
iast revord cnosen, next record, auto-next for fast data entry, 
edit keys 30 you don’t have to re-enter entire content ofr 4 
recor, deiete a record, delete a block ofr records, jaf 
delete, LiSsert.. gap insert, fast alphabetical sort of 
records--start anywhere in records 3; humber sort 3; SWap any two 
records 3; page display--ten records per page ; display current 
page. nexs pase’, previous page, flip backward and forward 
through datafrile, swap any two pages, ftast search of entire 
datarile for a sequence of characters ~-anywhere in records, 


mardcopy your records--especiaily suited for VZ printer piotter 4 
menu 2tc. 


Disk DATA has Directory and ERASE commands saves a datafriic 
or any nee thereof as a single binary file Which loads sack 
qiiack sv. assette DATA CSAVES a datafile as 4 single a te Laer 
Siow ade of multitudes of D files! Ail instructions for 
using DATA are stored on disk and tape as datafiles--run DATA, 
Lgad an -nsatruction file and page through it. This progran 
mertainiy stands Out amongst the crowd of other such programs 3! 
Loos: ae De 
PRICE - 820.9 for DISK or CASSETTE DATABASE — Please Nake 4:. 


Tyeaues ind foney Orders payabie to and is availabie trom =- 
SCOTT LZ BRUN 5 SAMERON COURT WANTIRNA VIC. 3152 


—oOrF sSsAt_e —- ES XTESENDPenYp YDOOoOsSsS W1. =e 
EXTENDED DOS VERSION 1.9 (C) - COPYRIGHT - DAVE MITCHELL — lL33”" 
MERGE - MERGES basic tile from disk with program in memory. 
DIRA - See example - T:MENU B:PATCHS. 1 B:WORDPROC 
B:EXTDOS & B:EXTDOS R W:DCS-INST 
LDIRA - AS above, but to screen and printer. 
DIRB - See example —- T: MENU d1 90 TAEO 3801B Q@532 
B:PATCHS.1 91 OB 72090 771F O5S1F 
LDIRB - As above, but to screen and printer. 
STATUSA - Prints free disk space to screen on one line. 
LSTATUSA - AS above, but to screen and printer, see below. 
534 RECORDS FREE 63.S00K FREE 
QLD - Restores a program after using the NEW command. 
OLD. - Prints START, END and LENGHT of program in memory in HES. 
DEC XXXXX - Converts DECIMAL to HEX 
HEX XKKX - VGonverts HEX to DECIMAL 
STATUSA and LSTATUSA also works with Version 1.8 DOS. 
The EXTENDED DOS is available in the two versions below <:- 
EXTDOS 2 - T.0.M. SEEKING (SELF RELOCATING)? 
EXTDGS £ - FOR 2K RAM AT 600O-S7FF HEX 
Price - 819.90 zach or the two for $15.09. Ava1idis from :- 
Dave MITCHELL - (979) 27 3513 
24. Sura NS Tone: Sisber NORTH ROCKHAMPTON QUEENSLAND 479) 
POR INFORMATION IN NEWCASTLE AREA :-- Joe LEON - (949) Si 2’Se 
oils: Seale —— = =< OE Ui OF mr T lor a, oe 
PATE AS. COPYRIGHT - HUNTER VALLEY VZ USERS* GROUP 
Thic zingie Patch will convert your E & F TAPE SORD PROCESSOR 
rer full DISK use while retaining all TAPE functions. it can 3e 
naen with | or 2 DRIVES. Below are the two Menus. 
E} DIT TEAT LiOQaD 
C)LEAR TEXT SI\AVE 
P}RINT TEXT DI IR 
LIOAD FILE ERA 
SIAVE FILE R}) EN 
VIERTEY FILE LYNIT 
Q)UIT PROGRAN be Re 
DJ) ISK M) ENU 
Fast SAVING and LOADING of TEXT DATA to and from Visk 1:5 
provided using Block SAVE or LOAD. 
Pu. instructions are suppiied together with a Tape to D1i3k 
transter Wtslity for your E & F Tape ford Frocessor. 
THis: Pavech will work with Yb.) or Yise Disk ContrTor er a 
STATUS facility nas been added for ¥1l.9 DOS owners. 
StSTEM R2OUTSeNEN TS. 2> DISK. DRG Pe OR ee 2 DES 
JTG0@ + i8K 2AM PACK OR YZ200Q + !SK © :6K RAM PACK + TK) 
The price - 8:09.90, NZ auUSsl1z.90 and is available trom :- 
ANT ee Jalos? Go Stk aR OU 
oy. 2s 3 4o.. -ESMOND: 2229 
Ni GoW, AUSTRALIA Phone (94S) 51. 2256 


